PlayCollect.asp 云网互动影视系统(12套模版和资源联盟) 6.2 - ASP源码程序

www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/PlayCollect.asp

    <!--#include file="player.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>普通播放器</title>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
	color: #FFFFFF;
}
-->
</style>
</head>
<body oncontextmenu="return false;" onselectstart="return false" 
ondragstart="return false" onkeydown="if(event.keyCode==78 && event.ctrlKey) return false;" leftMargin=0 topMargin=0 rightmargin=0 bottommargin=0>
<%
'===================================================================================================================
'软件名称：云网影视管理系统
'Copyright (C) 2002-2007 ywnt.net  All rights reserved.
'产品咨询QQ：489234,2813712
'程序版权：云网互动科技有限公司
'程序开发：云网互动科技有限公司
'官方网站：http://www.ywnt.net 
'郑重声明:
'    1、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    2、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    3、云网互动科技有限公司保留此软件的法律追究权利
'===================================================================================================================
Set RS=Server.CreateObject(YWNT_TMS_RS)
SQL="select MovieUrl from YWNT_TMS_MovieUrl Where ID="&UrlID
Rs.open sql,Conn,1,3
If Not RS.Eof Then
MovieUrl=RS("MovieUrl")
End If
RS.Close
Set RS = Nothing  

Function bytes2BSTR(vIn)
dim i
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function

   dim oXmlHttp,oStream   
   set oXmlHttp = Server.CreateObject("MSXML2.XMLHTTP") 
   oXmlHttp.open "GET",MovieUrl,false
   oXmlHttp.send()
   Response.Write bytes2BSTR(oXmlHttp.responseBody)
call connclose()%>